home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Dimension 64 14
/
Dimension_64_Nr.14_19xx_-_de_Side_B.d64
/
sam c
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
2KB
|
54 lines
10 rem musik abspielen
11 s=54272:fori=stos+24:pokei,0:next
20 pokes+24,15:pokes+5,25:pokes+6,31:pokes+13,240
30 dimsa(23),sb(23),i1(23)
40 forx=0to23:readsa(x),sb(x):next
50 forx=0to23:i1(x)=2:next
55 forx=0to2:readsc(x),sd(x),i2(x):next
60 z1=0:z2=0:n1=0:n2=0:ln=2
65 gosub500
70 pokes,sa(n1):pokes+1,sb(n1)
80 pokes+7,sc(0):pokes+8,sd(0)
95 pokes+4,33:pokes+11,33
100 z1=z1+1:ifz1<>ln*i1(n1)then200
110 n1=n1+1:z1=0
120 ifn1=8andf1=0thenn1=0:f1=1
130 ifn1=16andf2=0thenn1=8:f2=1
140 ifn1=24andf3=0thenn1=16:f3=1
150 ifn1=24andf3=1thenn1=0
155 ifn1=8andf3=1then240
160 pokes+4,32:pokes,sa(n1):pokes+1,sb(n1):pokes+4,33
200 z2=z2+1:ifz2<>ln*i2(n2)then230
210 z2=0:n2=n2+1:ifn2=3thenn2=0
220 pokes+11,32:pokes+7,sc(n2):pokes+8,sd(n2):pokes+11,33
230 goto100
240 fori=15to0step-.04:pokes+24,i:next:pokes+24,15
250 pokes+4,0:pokes+11,0:goto650
497 :
498 :
499 rem titelbild
500 poke53280,0:poke53281,0:print"[147]"
505 print"[158] [169] [169] [223] [223] [169] [223] [223] [223]"
510 print"[154] [146][169] "
520 print" [182] "
530 print" [223] "
540 print" [146][223] [146][169] [146][169]"
550 print"[169] "
560 print" [146][169] [169] [223][146] [223][146] [169] [146]"
570 print"[154] [223][146] [169] [146][169][223] [223][146] [223][146] [169] [146]"
580 print"[223] [223][146] [146][169] [223] [146] [146][223] [146][169] [146]"
590 print"[158] [146] [146] [146] [223] [146][169] [146]"
600 print"[223][146] [169] [146] [146] [146] [146] [146]"
610 print" [146][169] [146] [146] [146] [146]"
620 print" **** m & m ****"
630 printspc(11)"[154]s o f t w a r e"
640 return
650 print"[147][144]load"chr$(34)"sam d"chr$(34)",8"
660 poke631,19:poke632,13:poke633,82:poke634,213:poke635,13:poke198,5:end
670 :
680 rem musik daten
690 data143,12,48,11,143,12,143,10,143,12,104,9,143,12,97,8
700 data24,14,143,12,24,14,48,11,24,14,143,10,24,14,104,9
710 data195,16,210,15,195,16,24,14,195,16,143,12,195,16,48,11
720 data97,8,32,24,14,32,195,16,32,97,8,42